home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH2 / SRC / FILLMODE.BAS < prev    next >
BASIC Source File  |  1996-04-18  |  2KB  |  35 lines
  1. Attribute VB_Name = "FillMode"
  2. Option Explicit
  3.  
  4. #If Win32 Then
  5.     Public Const ALTERNATE = 1
  6.     Public Const WINDING = 2
  7.  
  8.     Type POINTAPI
  9.         x As Long
  10.         y As Long
  11.     End Type
  12.     
  13.     Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
  14.     Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  15.     Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  16.     Declare Function SetPolyFillMode Lib "gdi32" (ByVal hdc As Long, ByVal nPolyFillMode As Long) As Long
  17.     Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
  18.     Declare Function PolyPolygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, lpPolyCounts As Long, ByVal nCount As Long) As Long
  19. #Else
  20.     Public Const ALTERNATE = 1
  21.     Public Const WINDING = 2
  22.     
  23.     Type POINTAPI
  24.         x As Integer
  25.         y As Integer
  26.     End Type
  27.     
  28.     Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Long) As Integer
  29.     Declare Function SelectObject Lib "GDI" (ByVal hdc As Integer, ByVal hObject As Integer) As Integer
  30.     Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer
  31.     Declare Function SetPolyFillMode Lib "GDI" (ByVal hdc As Integer, ByVal nPolyFillMode As Integer) As Integer
  32.     Declare Function Polygon Lib "GDI" (ByVal hdc As Integer, lpPoints As POINTAPI, ByVal nCount As Integer) As Integer
  33.     Declare Function PolyPolygon Lib "GDI" (ByVal hdc As Integer, lpPoints As POINTAPI, lpPolyCounts As Integer, ByVal nCount As Integer) As Integer
  34. #End If
  35.